home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / netz / mailfilter / zpoint / headerfilter.zprx < prev    next >
Text File  |  1994-07-31  |  3KB  |  133 lines
  1. /*
  2.     $VER: Headerfilter.zprx 1.1 (29.7.94) Copyright (c) Jürgen Kohrmeyer
  3.  
  4.     Dies ist ein ARexx-Skript für Zodiac's  Point,  mit  dem  man  auf
  5.     bequeme  Weise  eine  Headerzeile  aus  der  aktuellen Mail in den
  6.     Headerfilter übernehmen kann. Wenn die Headerzeile länger  als  80
  7.     Zeichen  ist  wird  ihr  ein  '#?'  oder  '*'  angehängt.  In  der
  8.     Headerzeile vorkommende  Jokerzeichen  werden  durch  Voranstellen
  9.     eines  Hochkommas  ausgeschaltet.  Nach erfolgreicher Übernahme in
  10.     den Filter öffnet sich das  Fenster  und  der  gerade  übernommene
  11.     Eintrag ist selektiert.
  12.  
  13.     Sie dürfen dieses Skript beliebig kopieren,  solange  es  zusammen
  14.     mit  Zodiac's  Point  eingesetzt wird, aber verändern Sie es bitte
  15.     nicht ohne Erlaubnis des Autors.
  16.  
  17.     Sie erreichen den Autor wie folgt:
  18.  
  19.        Jürgen Kohrmeyer       Tel. : +49 5402 5195
  20.        Oststraße 2            EMail: j_kohrmeyer@wilam.north.de
  21.        49143 Bissendorf
  22.  
  23.     Hinweise zur Installation:
  24.  
  25.     Kopieren sie dieses Skript in  das  Rexx-Verzeichnis  von  ZP  und
  26.     fügen  sie  danach  der  Datei  'fkeys.zp'  auf Wunsch den Eintrag
  27.     "F1:SYS:Rexxc/RX ZPOINT:Rexx/Headerfilter.zprx %s" hinzu.
  28. */
  29.  
  30.  
  31. /* Ergebnisse anfordern */
  32.  
  33. OPTIONS RESULTS
  34.  
  35.  
  36.  
  37. /* Name des Screens auslesen */
  38.  
  39. PARSE ARG screenname
  40. ADDRESS VALUE screenname
  41.  
  42.  
  43.  
  44. /* Script beenden wenn wir uns nicht innerhelb eines Brettes befinden */
  45.  
  46. WHICHLEVEL
  47.  
  48. IF result ~= 'BOARD' THEN
  49.    EXIT(0)
  50.  
  51.  
  52.  
  53. /* Aktuelle Mail mit Header auslagern */
  54.  
  55. SAVEMESSAGEASIS 'T:Headerfilter-rexx.temp'
  56.  
  57. IF rc ~= 1 THEN
  58.    EXIT(10)
  59.  
  60.  
  61. /* Testen, ob MailFilter gestartet ist. Wenn nicht, dann jetzt starten */
  62.  
  63. IF ~SHOW(PORTS,'MAILFILTER') THEN DO
  64.    ADDRESS COMMAND
  65.    'Run <>NIL: MAILFILTER:MailFilter'
  66.  
  67.    DO 3 WHILE ~SHOW(PORTS,'MAILFILTER')
  68.       'WaitForPort MAILFILTER'
  69.    END
  70.  
  71.    IF rc = 5 THEN DO
  72.       SAY 'Kann MailFilter nicht starten!'
  73.       'Delete T:Headerfilter-rexx.temp'
  74.       EXIT(10)
  75.    END
  76. END
  77.  
  78.  
  79.  
  80. /* Aktuellen ZPoint-Screen einstellen */
  81.  
  82. ADDRESS MAILFILTER
  83.  
  84. GETATTR screen
  85.  
  86. IF result ~= screenname THEN DO
  87.    DEACTIVATE
  88.    SETATTR screen screenname
  89. END
  90.  
  91.  
  92.  
  93. /* Einen Header aus der Mail auswählen */
  94.  
  95. SELECTHEADER 'T:Headerfilter-rexx.temp'
  96.  
  97. IF rc ~= 0 THEN DO
  98.    ADDRESS COMMAND 'Delete T:Headerfilter-rexx.temp QUIET'
  99.    EXIT(0)
  100. END
  101.  
  102.  
  103.  
  104. /* Header in den Headerfilter übernehmen und das Fenster
  105.    auf dem aktuellen ZodiacsPoint-Screen öffnen */
  106.  
  107. headerzeile.pattern    = result
  108. headerzeile.emppattern = ''
  109. headerzeile.newsgroup  = ''
  110. headerzeile.mailtype   = ''
  111. headerzeile.action     = ''
  112.  
  113. ADDITEM TO header STEM headerzeile CONVERT POPUP
  114.  
  115.  
  116.  
  117. /* Prefs speichern */
  118.  
  119. IF rc = 0 THEN
  120.    SAVE
  121.  
  122.  
  123.  
  124. /* TempDatei löschen */
  125.  
  126. ADDRESS COMMAND 'Delete T:Headerfilter-rexx.temp QUIET'
  127.  
  128.  
  129.  
  130. /* Beenden */
  131.  
  132. EXIT(0)
  133.